﻿<!-- #include file="mymin.asp" -->
<card title="会员管理"><p>
<%

dim p
p=getN("p",1)
if p<1 then p=1

w "<a href=""addmember.asp?sid="&sid&""">[添加会员]</a><br/>"

dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select id,name from 74hu_user order by id",myconn,1,1
If Not rs.eof	Then
	dim pagesize,count,page,i,pagecount,id
	PageSize=10
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	w "共"&count&"个会员<br/>"
	For i=1 To PageSize
	If rs.eof Then Exit For
	id=rs("id")
	w id&".<a href='detail.asp?sid="&sid&"&amp;id="&id&"&amp;p="&p&"'>"&nowml(rs("name"))&"</a><br/>"
	rs.moveNext
	Next
	w showPage("member.asp", "p:"&p, page, pageCount)&"<br/>会员ID<input name='id"&time_r&"'/><br/>"&_
		"<anchor>转到会员<go href='detail.asp?sid="&sid&"'><postfield name='id' value='$(id"&time_r&")'/></go></anchor>"

Else
	w "暂时没有会员！"
end if
rs.close
set rs=nothing

%><br/>----------<%
call bbsLast
%>